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000000 
000000 
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6000-- 
000006 



OOOQOO- 
000000' 



62 000000' 

63 000000' 
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.LIST SEQ,BIN*LOC 
.NLIST MD^MC^CND 
.LIST ME 



STARS 



*««***«» 



»*«***** 



t««*«*««ft« 



• ******* 



BKMOD <FPBC ># l#/###2500/100 

MODULI 4g020-FfB6 Jl',-"^S50Ll00 

.TITLE FPBC DEC/Xli hHHv EXERCISER MODULE 

DDXCDM VERSION 6 23-MAY-78 

.LIST BIN 



begin: 
hodnah: 


.ASCII /FPBC / 


xflag: 


.BYTE OPEN 


ADDR: 


1+0 


VEC OR: 


♦ 


BRl: 


.BYTE PRTY+0 


BR2: 


.BYTE PHTY+0 


DV Dl: 


♦ 1 


SRI: 


OPEN 


SR2* 


OPEN 


SR3: 


OPEN 


SR4: 


OPEN 


• *****«r*ft**ft«r««ft«4#A«r»* 


5tat: 


40020 


INIT: 


START 


IIU fi 


MODSP 


§500 


ICONT: 


ICOUHT: 





sdfc t: 





H dcht: 





sofpas: 





H DPAS: 





s scnt: 





R nnum: 





c nfig: 




R si: 





ir.ii 





OPEN 



;module name. 

;1ST DEVf^f'SDSg/"'^'' "'" ■"' "™" "''"■ 

;1ST device vector. 

?|ST BR level. 
;2ND BR level. 
;DEVICE INDICATOR 1. 
;SViITCH REGISTER 1 
;S«ITCH REGISTER 2 
ySWITCH REGISTER 3 
*^^ ;S«ITCH REGISTER 4 

;STATUS WORD. 

;HDDULE START ADDR. 

;M0DULE STACK POINTER. 

;PASS COUNTER. 

;# OF ITERATIONS PER PASS=2500 

;L0C TO COUNT ITERATIONS 

;LDC TO SAVE TOTAL SOFT ERRORS 

?L0C TO SAVE TOTAL HARD ERRORS 

;LDC TO SAVE SOFT ERRORS PER PASS 

;LOC TO SAVE HARD ERRORS PEP PASS 

;l OF SYS ERRORS ACCUMULATED 

;HCLDS RANDOM * wHFN RAND MUCRC IS CALLED 

;HESERVED FOR MONITOR USE 

;RESERVED FOR MONITOR USE 

;RESERVED FOR MONITOR USE 

HOC TO SAVE RO. 
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191 000064' 000000 
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125 9992^? 000000 

195 000074' OOQOOQ 

12I 999026' 000000 

197 000100' 000000 



000000 



000 02 
000102^ 

000104' 000000 
000 06' 

000106' 000000 
0001 
000 

00- 



0001 
000' 



xwo vuuuuu 
10' 000000 

14' 000000 



_,-000 
000100 
001 



000 
000040 



000 
000 
000 
000 




SVRI: 


OPEN 




SVR2: 


OPEN 




SVR3: 


OPEN 




SVR4; 


OPEN 






OPEN 




SVR6: 


OPEN 




cs a: 

SB OR: 


OPEN 








AC r: 


OPEN 




WA ADR: 






astat: 


OPEN 




errtyp: 






asb: 


OPEN 




AWAS: 


OPEN 




rstrt: 


RESTRT 




WDTO: 


OPEN 




wofr: 


OPEN 




intr: 


OPEN 




idnuk: 


100 
.IF NP 


< 


rbufva: 






rbufpa: 


OPEN 




rbofea: 


OPEN 




rbofsz: 






wbufpa: 
wbufea: 


OPEN 




OPEN 




wbufrq: 






WBUFSZ: 


OPEN 




CDERCT: 


OPEN 




cdwdct: 


OPEN 




FREE: 


OPEN 
•NLIST 






IMODX.= 







.LIST 






rig?? 






s 




.NLIST 
.WORD 











.LIST 






.ENDR 






.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 






.WORD 







-WORD 






.WORD 


Q 




.WORD 






.WORD 







.WORD 







.WORD 







.WORD 







.WORD 







.WORD 






?LCC TO SAVE Rl. 
;L0C TO SAVE P2. 

;loc to save r3. 
;loc tc save R4. 
;ldc to save r5. 
;ldc to save R6. 
;addr of current csr. 

;ADDR OF GOOD DATA, OR 
;CONTENTS OF CSR. 

;addr of bad data, op 

;status reg contents. 

;type of errcr 

;expected data. 

;actual data. 

;restart address after end of pass 

;words to memory per iteration 

;words from memory per iteration 

;# OF interrupts pep iteration 

;module identification number=ico 

;read buffer virtual address 
;read buffer physical address 
;read buffer ea bits 

jSIZE OF THE read BUFFER 
JWRITE BUFFER PHYSICAL ADDRESS 
;WRITE DUFFER FA BITS 
;WRITS BUFFER SIZE REQUESTED 
JWRITE BUFFER SIZE IVAILftBLE 
;CDATA/OATCK ERROR COUNT 
;CDATA/OATCK WORD COUNT 
;RESERVSD FOR FUTURE USE 



;MCDULE STACK STARTS HERE. 
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.WORD 
.»ORD 
.WORD 
.WORD 
.ifJORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 






.LIST SEQ 
?EQUATE STATEMENTS 
OPEHsO 



ftftftftft«ftftftftft*ftft«ftftft«Aftftft«« 



5=100000 

1=4000 
_-_0=2Q00 
IT9=1Q00 

T8=400 

17=200 

f6=l00 

T5=40 



ADDR22=1000 
R0=%0 




PIRQ$=inT 
PRTY7=340 
PRTY6=300 
PRTY5=24Q 
PRTY4=200 
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PRTY3=140 

PRTY2=100 

PRTYi=40 

PRTY0=O 

PRTY=0 

PUSH=005746 

P0SH2=024646 

POPSP=005726 

POPSP2=022626 

TRPDFD=0 

NOLL=0 



JDEFFERRED SERVICE: 



EXITS=TRAP*TRPDFD 
MSG$=TRAP+TRPDFD 
MSGSS=TRAP-i-TRPOFD 
MSGN|=TRAP+TRPDFD 

daters=trap+trpdfd 
hrder|=trap-«-trpdfd 
sdfer$=trap4-trpdfd 

BREAK$=TRAP+TRPDFD 

ENDS=TRAP+TRPDFD 

DATCKS=TRAP+TRPDFD 

CDATA|=TRAP4-TRPDFD 

ERDIT$=TRAP4-TRPDFD 



;direct service: 



000 
000 






004136 
000040 



• .ftftftftftft 
START: 

restrt: 
LOOP: 



GWBUF$= trap ♦ TRPDFD 

GETPA$= trap ♦ TRPDFD 

MAP22$= TRAP + TRPDFD 

RANDS= TRAP ♦ TRPDFD 

OTQAS= TRAP + TRPDFD 

BTODS= TRAP + TRPDFD 

.NLIST MC 

SINGLE PRECISION 

THIS TEST TAKES TWO RANDOM NUMBERS (A AND B) AND 

COMPARES THE RESULTS OF TWO EQUAL CALCULATIONS. 

EACH SECTION EVALUATES A DIFFERENT EQUATION AS DESCRIBED BKLOW: 

SECTl (A+B)**2 = A**24-2*A*B+B**2 

SECT2 (A+B)*(A-B)=A**2-B**2 

SECT3 A/B*B=:A 

ftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 



***ftft**ft***ft**ftft*ftft**ftftft***** 



JSR 
LDFPS 
LDF 
LDF 



;GET RANDOM OPERANDS 
;INIT FPS 
;L0AD a OPERAND 
;LOAD a OPERAND 
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360 



364 
365 

m 



ooo: 
ooo; 
ooo: 



12-0CT-78 11:59 



004456 
004452 
003220 



60' 004767 
264- 174100 



004576 
004566 



004556 004552 
004540 004420 



000312' 
000320' 
'-0324- 



016767 
172467 



016767 



500 



« oooa^- 

73 000332' _.__,_ 

174 000334- 004767 

it Tom-um 



004516 



004526 
004516 



004502 004502 



380 

P 

384 
385 

ii^ 

388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 

m 

401 

iU 

404 
405 
406 

409 
410 
411 
412 
413 
414 



000' 

ooo' 
or" 



mi 

m 

1'6i 

,^ .4103 

060400' 016767 



Iw- 



004336 
004346 

mm 

004444 



000406- 
000412' 
000414' 
000416- 

mM- 

000436; 
000450' 

000454' 
000462' 
000464' 

miw- 

000510' 



0005 
0005 



012701 

004767 

004767 

016767 
172403 
")47 — 



004712' 



004306 
004276 
002776 
040000 
000002 
002760 



01 

174167 
016767 



026767 
002003 



003014 

004354 
003000 
004212 
004334 



mm 

004446 



004422 
004416 



004376 

004364 

004346 
004216 



000526' 016767 004322 
166767 004310 



004330 004330 



004316 
004310 
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MOV 
MOV 
JSH 
STF 
MOV 
JSR 
STF 
MOV 
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SREGO/SACl 
SREGl,SAC0 

pc,fltIdd 

AC1,AC0 

sacusaco 
pc,fltmpy 

ACl,STMP4 
SAC1,$REG2 



;setup extended 
;exponents 

?PERF0RM THE ADD 
;SETUP AGO TO 
;PERF0RM THE SQUARE 
;D0 THE MULTIPLY 

;save result 
;and software exp 



<SS^,Og T8f ilBl "*^D SIDE OF THE EQUATION 
}uu THb A_A FIKST_ 



MOV 
LDF 
MOV 
LDF 
JSR 
STF 
MOV 

;N0« DO THE B* 
LDF 
LDF 
MOV 
HOV 
JSR 
STF 
MOV 

;NOy DO THE 2*B*A 



SREGO/SACO 

STMPO^ACO 

SAC0,SAC1 

PC,FLTMPY 

ACl,AC2 

$ACl,$AC2 

STMP2£AC0 

aco,a6i 

SREG1,SAC0 

SACO/SACl 

PC^FLTMPY 

ACl,AC3 

$AC1,$AC3 



MOV 
LDF 
LDF 
MOV 
MOV 
JSR 
LDF 
MOV 
JSR 



(R1),AC 

sreg1,$ 



TMP2yRl 
" ACQ 
ACl 

SACO 

REGO^SACl 
fC,FLTMPY 
#-040000, ACO 
#2, SACO 
PC,FLTMPY 



;Hoy som the results 

MOV SAC3,SAC0 
AC3,SC0 



LDF 
JSR 
LDF 
MOV 
JSR 
STF 
MOV 



ACS, SCO 

PC,FLTADO 

AC2/AC0 

$AC2/SAC0 

PC^FLTADD 

ACl*$TMP6 

$AC1,$REG3 



;GET EXT EXPONENT 

;load operand a 
;set operand b ext exp 
;load b operand 
;execute the multiply 
;save result 



JLOAD B OPERAND 
?AND EXT EXPONENT 



?D0 THE MULTIPLY 
;SAVE THE RESULT 



;LOAD THE B OPERAND 
;LOAD THE A OPERAND 
?AND THE EXT EXPONENTS 

;D0 THE MULTIPLY 
;SETUP TO MULTIPLY BY T 

;D0 THE MULTIPLY 



;GET RESULT OF B*B 
JADD THE RESULT 

;get result of a*a 

;add this result 
;save final result 



;NOW^CHECK BOTH SIDES OF THB EQUATION 
^CALCULATE THE NUMBER OF CORRECT BITS 



;PUT LARGEST EXPONENT OF A 
CgP |AC2,S.C3 

MOV $AC3/$AC2 
1$: SUB SAC1,SAC2 



*2 OR B**2 IN $AC2 

;PRANCH IF SAC2 ALREADY HAS LARGEST 
;$AC3 WAS LARGER 
;N0H CALCULATE NUMBER 
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m 



mm 

000554 
000560 

000600^ 



000024 
004276 



004302 



_72467 004136 

------, 016767 004146 004260 

000572' 16676? SS^lSI 004250 

100002 

003431 

012767 000045 177262 



00061 
00061 



ill: 



004234 2$: 



001 
104405 000000' 000000 

000 



mm Bw 



003004 



104420 000000' 004732' 
005062' 



000642' 
000650' 



000652' 004767 002764 

888ll§: mill- 

000662' 



000662' 
000670' 

000672' 
000672' 
000700' 



104420 
005102' 



00710' 

00736' 

00744' 
00750' 



172567 
172467 

nm 

004767 



000000' 004734' 



104403 000000' 005144' 



000700' 170127 000040 



003776 
"3776 



§03776 

002550 

004106 004106 

003736 

003752 004072 



|20.,5»C2 

STMP4,AC0 
$REG2,$AC0 
PCrFLTSUB 
$REG3/$AC1 

pcx 

SAC2,$AC1 

SECT5 

#4S^ERRTYP 



;0F CORRECT PITS WITHIN 2 

;MAKE RESULT POSITIVE 

?LGAD RESULT OF LEFT HAND SIDE 

JAND EXTENDED EXPONENT 

;SyRTRACT TO SEE HOW CLOSE THEY ARE 

;G|T DIFFERENCE IN EXT EXPONENTS 

;ACTUAL SXP'S ARE EQUAL TO 200 

;ENSURE RESULT IS POSITIVE 

•BRANCH^If"eP "t-LO^^RLE NUMBER? 
;FP result WRONG 



;RESULTS WRONG 



30A(1052) 
PRECISION 

SUB 
NEG 
LDF 
MOV 
JSR 
SUB 

BPL 
NEG 
CMP 
BLE 

MOV BH3£6KKTyf }\ 

HRDER t <RESULTS MRONG> 

}** »**it*** -Hi, 1,1, *t,i,l,iiiHc1i-i,1i-l,t,fHH,lt**1t*it* Hit unit it*** it -kic** 

.IF B <> 

HRDERS^BEGIN^NULL 

-IFF 

HRDERS, BEGIN, ;RESULTS WRONG 

-ENOC 

J *********************************** *it***i,**it*** a, f,ir**if**i,*i, 

jsr pc/sfl20 ;convert first result 

Iflbuf 

y|2L***llliiil222IL***********4£9SV|5l*inENDED exponent 

}*********************************** *i,i,-i,m,i,f,ii,^f,fi^.fi^^^f,^^^^^ 

;CONVERT $REG2 TO ASCII A-^D 
OTOA$,BEGIN,$REG2,SOBUFF''"'' *' ^''''' 

}************************* *********ii*f,it**i,in,i,^iti,^^ if ^i,f,^^^f,it 
STMP6 PC,$FL20 ;CCNVERT OTHER RESULT 

Isflbuf 

OfOA SREG3,S$0BUFF 

}********* ***ii*ic** A** *******************1,^,i,f,itii Hi, 1,^^i,f,^^,1,^^^ 

;C0NVBRT^SREG3 TO ASCII AND 
aT0A$,BEGIN,$REG3,S$08UFf"°'^' '' ^^°^"" 



********* 



********* *****************-t,i, 



************** 



SECT2S 

;D0 a+b 



. ********** 

MSGN SPl 

M|2N|, BEGIN, SPl ;ASCII MESSAGE CALL hITH COMMON HEADER 
i************ 
LDFPS »40 



****************** *********ir**** 

;INIT FPS 



LDF 

LDF 

MOV 

MOV 

JSR 

STF 

MOV 

THE A-R 

LDF 

MOV 



$TMP0,AC1 

|TMP2,AC6 

|REG0,SAC1 

SREG1,§AC0 

PC,FLTADD 

AC1,AC2 

$ACi,$AC2 

STMP0,«C1 
$REG0,$AC1 



;LOAD A OPERAND 
;LDAD B OPERAND 



;ADD THEM 
JSAVE IN AC2 
;AND EXT EXPONENT 

?LOAD OPERAND A 
JAND EXT EXPONENT 



:) 
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672 
,._66l 
003656 



03616 

03614 003610 

176636 



10446S 000000- 000000 
000 



SfMP2/AC0 
|REG1,$AC0 

pc,fltsub 
(a-bS 

AC2,AC0 

$AC2^SAC0 

PC,PLtMPY 

ACL$TMP4 

SACU$REG2 

STMP2,AC0 

SREG1,$AC0 

AC0,AC1 



LDF 
MOV 

JNOM DO (A+B)' 

LDF 

MOV 

JSR 

STF 

MOV 
;NOM DO THE B*B 

LDF 

MOV 

LDF 

MOV 

JSR 

STF 

MOV 
;HOa DO THE A*A 

LDF 

MOV 

LDF 

MOV 

JSR 

MOV 
JHOH DO A**2-B*' 

LDF 

MOV 

JSR 

STF 

MOV ^,.._ 

;Nga compute the RESOtTS 



i-u* 

AC0,SAC1 
pC^FLTMPY 

$ACl,SAC2 

STMPO^ACO 

sacuIacS 

AC2,AC0 

$ac2,|aco 
pc*fltsub 

AC1,STMP6 

$AC1,SREG3 

RESOLT" 



;LOAD OPERAND B 

JSUBTRACT THEM 

;GET RESULT OF (A+B) 

;FORM THE PRODUCT 
;SAVE RESULT 
;AND KXT EXPONENT 

;lcad operand b 

;b operand is in ACO 
;aND EXT exponent 

?SAVE RESULT IN AC2 

;LOAD OPERAND /i 
JPUT OPR A IN ACl 

;to perf the square 
;execute the multiply 

?SAVE EXT EXPO OF A*A 



) 



;GET 
|A«A 



R*B 
IN ACl 



;SAVE IH MEMORY 



ALCULATE THE NUMBER OF CORRECT BITS 



2S: 



CMP 
BGE 
MOV 
SUB 
SUB 
NEG 
LDF 
MOV 
JSR 
SUB 

BPL 
NEG 
CMP 
BLE 
MOV 



SAC2/SAC3 

SAC3,$AC2 

SACUSAC2 

|21.,SAC2 

|aC2 

STMP4,AC0 

$REG2£$AC0 

PC,FLTSUB 

$REG3,$AC1 

tf45,ERRTYP 



HRDER , <RESULTS WRONG> 

JHESULTS WRONG 



;determine which exp is larger 

;BRANCH IF ftC2 LARGER 
;PUT LARGEST IN AC2 
;CALCUL NO OF CORRECT HITS 
;ALL0W 3 BIT ERROR 

;GET LEFT HAND SIDE 

^SUBTRACT TO SEE HOW CLOSE THEY 
;SUB EXT EXPONENTS 

jactual exponents are equal 
?make surf result is positive 

;results within range allowed? 
;brinch if yes 
-fp result wrong 



^ 



.IF B <> 

HRDER$#BEGIN,MULL 

.IFF 

HRDER$,BEGIN^ ^RESULTS WRONG 

.ENDC 



**»*«**-fti»*ftAar*ftft**fta**ft*«kft***ft 



************* 



*************************** 
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001 




550 

m 
m 

ill 

558 
559 
560 
561 
562 
563 

566 

m 

569 
570 

m 

573 
574 
575 
576 



._2' 
5002' 



881i?l- mm- 



m mm- 



104403 000000 



001 

go 



24' 

n- 

J54' 



00^ 

oo: 



00 



172567 
172467 



003356 
--135' 



iili ill! 



mr- 



._. 00205. 
^^:,^7'. s -167 003332 

m IP ills 

2' 166767 

~ - f, 



i 

444' 003431 



100002 



1446 
454 



nm 



003300 

mm 

000045 



001454' 1044 



'■^l 



MACYll 
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000000' 004732' 



004734' 
005144' 



003506 
003476 



003340 



003436 
003316 



003404 
176432 



m 

§81 



470' 004736' 
472' 



000000' 000000 



002154 
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JSR 

STMP4 

SFLBUF 

OTDA $REG24S0BUFF 

•************%***»**«««« 



**...*..iSONVERT FXTENDED EXPONENT 

ftAa*«***%*«*****ft*A«*Aftftft*ftjta*a^5S^^ 

JCONVERT SREG2 TO ASCII AND 
-STORE AT SOPUFF 



0T0A$/BEGIN/SREG2^S0BUFF 

*********«**«*******A**jiiitJtJiji, 
?CONVERT OTHER RESULT 



**«*****»**««* 
PC/$FL20 



************ 



rft************** 



SECT3 



JSR 

$TMP6 

SSFLBUF 

OTOA $REG3,|S0BUFF 

j«**********«%«lt*ftft*ft*«»«,*******«**«*ft«^«ftA«ft«(*«j^«ft^^« 

JCQNVERT $REG3 TO ASCII INO 
QTC,A$,BEGIN,SREG3,SSnBUFf = "''^ " "° = "" 

*************************** 

MSGN SPl 

MSGNS, BEGIN, SPl ;ASCII MESSAGE CALL WITH COMMON HEADER 

STARS 
ft******** **************** 

LDF STMPO^ACl 
5TMP2/AC0 
SREG0,SAC1 
SREGl-fiACO 
PCFLTDIV 
PC^FLTMPY 
AC1,$TMP4 
SAC1,SPEG2 
STMPOiACO 
AC0,STHP6 
SREGO^SACO 
SREGO-SREGa 
'^C/FLTSUB 



ft******* * 



********** 



LDF 
MOV 
MOV 
JSR 
JSR 
STF 
MOV 
LDF 
STF 
MOV 
MOV 
JSR 
SUB 
BPL 
NEG 
CMP 
BLE 
MOV 



r*«*ft************ft«ftA*ft 

LOAD OPERAND A 
«ND OPERAND R 



;Gn DIVIDE THEM 

;multiply result by p 
;save result 

;load operand a 
;save incase type out 



******* ft** 



1 



SRBGO/SACl 

SACl 
|22.i-$ACl 



;SUBTRACT RIGHT AND LEFT HAND SIDES 

;SFE IF RESULT OK 

;ENSURE DIFFERANCE IS POSITIVE 



;RESULTS WITHIN 2 
;PRANCH IF YES 
-FP RESULT WRONG 



_ECT4 
nu¥ #45/ERRTYP ;r 
HRDER , <RESULTS HRONG> 

• ****«&***************«*«;« ft««j^«ft«ft«««^j^^ A 

-IF B <> 

HRDERS/BEGIN^NULL ^RESULTS WRONG 

HRDER$/BEGIN, JRESULTS WRONG 
.ENDC 

.***************** 



*********** 



SFLBUF 

OTOA $REG2/$0BUFF 



******************** ***ft*ft*ftii**a 
?CONVERT FIRST RESULT 



^****«*******jt 



;CONVERT EXTENDED EXPONENT 



II 



SSSLR^S^If^l SYSTEM EXERCISER 
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0T0A$,BEGIN,$REG2^$0BUFF' ""^ *^ ^"^"^^ 
^TMP6 P^'5FL20 KONVERT OTHER RESULT 

;|flbuf 



ti*1liHtAit*** 



*******l**ft5SSS««** ****** rt*****ft**«**^ 



*************** 



QT0AS,BEGIN,SREG3,$$0BUFf'*°''' *'' ^5°^"" 



ii?gXi''L5||G3„l9 ASCII AND 



** ft******* 



**********»**■!, Hit Hit *1t«tit» A* 



-*************** ft****^*^<j^ 

MSGN SPl 

|SGN|,BEGIN,SP1 ;ASCII MESSAGE CALL WITH CONMQN HEADER 

' SETD*************************************************** 



CLRD 



AC3 



$TMP4£AC3 
AC3,$TMP6 

$TMP6,AC3 

SECTS 
#45,ERRTYP 



;CONVBRT TO SGL PREC 
/BRING IT BACK 

;ANSWERS OK? 

;BRANCH if YES 
;FP RESULT WRONG 



******* ********^ 



-JCDF 

STCFD 

SETD 

CHPD 

CFCC 

BEQ 

MOV 

HRDER 

.»****«********* **»»^^^^^j^^^^^^^^^^^^^ 

-IF B <> 

HRDER$,BEGIM^NULL ; 

H|DER$,BEGIN, ; 

ISH pP?i?n^8 'S|T CONTENTS OF AC3 

iTMPO PC'5FLD20 ;CONVERT TO ASCIZ 
FLBUF 

JTMPe P^'5fl-D20 ;CONVERT $TMP6 TO ASCIZ 
SFLBUF 

.JSGN SP3 
MSGN|^BEGIN^SP3 ;ASCII MESSAGE CALL WITH COMMON HEADER 

'SETF*************************************************** 
kirFr U^^itU^^l ^LOAD NUMBER 



********* 



^flLS^S^F^ SYSTEM EXERCISER 
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000000* 000000 



004720' 



• • ***** 

.SBTTL 

TST2: 




!iF*r<r*********************************************^ 

HRDERS, BEGIN, NULL ; 
"|DgR$/BEGIN, ; 

ItP****|t%*;4%*2:;s;u1?*^ 

;*******i******ay»^gL*********,*,,,,,,,,,,,,,^^^^^^^^ 

fSSSXPT STMP4+2 TO ASCII A'^D 
0T0AS,BEGIN,$TMP4*2,S0Bulf °''' *" 5°^"^^ 



****** ********<^^, 



<5|2I***.§tmp6*2*«ob5f"""'"'"'"'**************^ 

OTOA$,BEGIN,$TMP64.2,$$Ob6f " ^^°""^ 

********* *******a********;^^, 



********* 



* ******** 

* ******** 



******** 

********* 



* ***** *******»*Jt»J^^^^^^ 

MSGN SP4 

MfJN|^BEGIN,SP4 ;ASCII MESSAGE CALL WITH COMMON HEADER 

" J?i?n."£J!0OM OPERANDS 

/INIT FPS 
;LgAD A OPERAND 

;load b operand 
;SETUP extended 
;exponents 

JPERFORM THE add 
;SETUP ACO TC 
yPERFORM THE SQUARE 
'99,.I"E MULTIPLY 

;save result 
;and softkarf exp 



JSR 

LDFPS 

LOD 

LDD 

MOV 

MOV 

JSR 

STD 

MOV 

JSR 

STD 

MOV 



pc^fltdbl 

Itmpo^aci 
|tmp4;aco 

|regi,5aco 



Ku^rLTMPY 



m P{fg| HAND SIDE OF THE EQUATION 



69- 
694 



vREGO^SACO 

stmpoJaco 

SAC0*SAC1 

ACO.ACl 

PC,PLTMPY 

ACl,AC2 

$AC1,SAC2 

|TMP4,AC0 
ACO^ACl 

!AC0,PC1 
PC*FLTMPV 
ACi,AC3 



'PIT.'^XT EXPONENT 
;L0AD OPERAND A 
^^^In°S^S5^S.LP:XT EXPONENT 



{kQS2.J_0PERAND 



iJfPiisIi:? '"'""'" 



;LOAD B OPERAND 

;AND EXT EXPONENT 

;D0 the MULTIPLY 
;SAVE THE RESULT 
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002066" 016767 002756 002760 




2701 004716' 

12l 



IP? mm 88??is 

4762 OOlllO 

ml 



040000 
^ 00000' 
F67 00127 



0^6767 002706 
""'- 001326 



002710 
002676 



6767 002666 002660 
4767 001312 

6767 002646 002530 



6767 002642 002642 

,|||| 881111 mm 

MWi 8|g|J °°2"^ 

jix^^ll 8o2460 002572 

-. 054l67 001220 

60' 166767 002450 002562 



m m 8 



02554 

02552 002546 

000045 175574 



740 002312' 104405 000000' 000000 



lii RRiii^r 29l?fl 001572 
746 002324' 005124' 

""* "02 — 

02 



m 8 

749 



03|26^ 004736' 



HACYll 30A(1052) 
DOUBLE PRECISION 

M0¥ 

;HOW DO THE 2* 

ni 

LDD 
MOV 
MOV 
JSR 
LDD 
MOV 
JSR 



;mom sum the results 
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$&C1^$AC3 



#STMP4,R1 

(ru^aCo 

-{R{},AC1 

PC^FLTMPY 
#-040000, ACO 

kms,. 



') 



LDD 
JSR 
LDD 
MOV 
JSR 
STD 
MOV 



iiCS^ACO 

PC,FLTADD 

AC5,AC0 

$AC2/SAC0 

PC^FLTADD 

AC1,FLTMPI 

$ACl/$REG3 



;load the b operahd 
5l0ad the a operand 
?and the ext exponents 

;do the multiply 

js.etup to multiply by two 

?d0 the multiply 



jget result of b*b 
;add the result 
;get result OF A*A 

jadd this result 
;save final result 



;HOH CHECK BOTH SIDES OF THE EQUATION 
JCALCULATE THE NUMBER OF CORRECT " *"" 
?PUT LARGEST EXPONENT OF A**2 OR 



1$: 



2$: 



CMP 

bge 

MOV 
SUB 
SUB 
NEG 
LDD 
MOV 
JSR 
SUB 



$AC2,SAC3 
$AC3,§AC2 

saci,|ac2 

|52.,SAC2 

SAC2 

FLTMP0,AC0 

$reg2,|aco 
pc,fltsub 

$REG3,$AC1 

|aC2 
ECT 



BITS 

B**2 IN $AC2 



li?IFH.FJi5£2«*^RE*DV "AS LARGEST 

;SAC3 MAS LARGER 

;NOW CALCULATE NUMBER 

;0F CORRECT PITS WITHIN 2 

;MAKE RESULT POSITIVE 

HS^D RESULT OF LEFT HAND SIDE 

;AND EXTENDED EXPONENT 

JSUBTRACT^TO SEE HOM CLOSE THEY ARE 

?GET DIFFERENCE IN EXT EXPONENTS 

>ACTUAL EXP'S ARE EQUAL TO 200 

>ENSURE RESULT IS POSITIVE 



il 



ACl 



;ANSWERS WITHIN ALLOWABLE NUMBER? 
;BRANCH IF YES 
;FP RESULT WRONG 



;RESULTS WRONG 



BPL 
NEG 
CMP 

MOV #45,ERRTYP 
HgDER , <RESULTS WROMG> 

.IF B O 

HRDERS, BEGIN, NULL 

.IFF 

HRDER$, BEGIN/ ;RESULTS WRONG 

FLIMPO ^^'5^^°^° ;CONVERT RESULT 1 TO ASCII 

SFLBUF 
TOA SREG2,$0BUFF 

;CONVRRT $REG2 TO ASCII AND 
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MACYll 30A(1052) 
DOUBLE PRECISION 
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h mr- mm- """^ 

757 002346' 005002' 



000000' 004732' 



m mm 

764 

765 002360 

766 002360 

767 002366 



m urn 
M Ml 

lif 002502 

38iil3 



'Hi 



104420 
005102' 



000000' 004734' 



104403 000000' 005170 
170127 000340 




002420 002420 

Ml] IMl ""'''""' 
im mh """» 

11 W 

16767 00234 



002354 
002222 



im mm 002324 

6767 0Q2316 002316 

4767 000676 

6767 002304 002304 



5SS-. W 88?li!! 002266 

io| 88256?' Jlife? 002260 



002260 
002252 



OTOAS, BEGIN, $REG2,$0BUFF 

JSR 

FLTMPl 

SSFLBUF 

OTOA $REG3,SS0BUFF 



JSTORE AT SOBOFF 



PC,SFLD20 ;CONVERT RESULT 2 TO ASCII 



;CDNVERT $REG3 TO ASCII AND 
JSTORK AT $$OBUFF 
aT0AS#BEGIN,SREG3,$$0BUFF 

• «»«*« »«***«*««« ««ftft«ft«d:«««A*«r»*«*««ft*««**«* ************ «**«««« 

HSGN SP2 

MSGNS/BEGIN,SP2 ;ASCII MESSAGE CALL WITH COMMON HEADER 
STARS 
******************************************************************* 

SECT2D: LDFPS #340 



STMP0,AC1 

|TMP4,AC0 

|REG0;SAC1 

|REG1,SAC0 

PC^FLTADD 

AC1,AC2 

$ACl/SAC2 

STMP0,AC1 

*REG0,SAC1 

"""^ACO 



STMP4, 



ACO 
UB 



806 002602' 172402 



;D0 A+B 

LDD 

LDD 

MOV 

MOV 

JSR 

STD 

MOV 
JNOW DO THE A-B 

LDD 

MOV 

LDD 

MOV 

JSR 

;now do (a+b)*(a-b 

LDD 

MOV 

JSR 

STD 

MOV 
JNOW DO THE B*B 

LDD 

MOV 

LDD 

MOV 

JSR 

STD 

MOV 
JNOW DO THE A*A 

LDD 

MOV 

LDD 

MOV 

JSR rv,*rbxnr]f 

MOV $AC1,SAC3 
;NOH DO S**2-B**2 

LDD AC2/AC0 



„C2,AC0 

SAC2,SAC0 

PC,FLTMPY 

ACl,FLTMPO 

SAC1,|rEG2 




;L0AD a OPERAND 
;LOAD B OPERAND 



;ADD THEM 
;SAVE IN AC2 
;AND EXT EXPONENT 

;L0AD OPERAND A 
JAND EXT EXPONENT 
;LOAD OPERAND B 

;SUBTRACT THEM 

JGET RESULT OF (A-i-P) 

;F0RM THE PRODUCT 
;SAVE RESULT 
>AND EXT EXPONENT 

;L0A0 OPERAND B 

;B OPERAHD IS IN ACO 
;AND EXT EXPONENT 

?SAVE RESULT IN AC2 
;L0AD OPERAND A 



JEXECUTE THE MULTIPLY 
;SAVE EXT EXPO OF A*A 



-) 



;GET B*B 



■Ill 
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0026 
002- 



MODULE 
il 916767 Q02242 002234 
002104 



002612' 004767 QQ 
002640' 01676 



oo; 
oo: 
oo: 



oo: 







1704' 166767 002024 

m 



if: !i?l?ii 



mm 

000045 



002146 
002136 



002122 
175150 



001 
"OS 



002736' 104405 000000' 000000 



002744' 004767 
002750- 005124' 
002752' 004736' 



mW' unn- ''''''' ''''''' 



002764' 004767 

mm mir- 

002774' 



002774' 104420 000000' 004734' 
003002' 005102' 

003004' 

003004' 104403 000000' 005170' 

003012- 

003012' 172567 001670 



MACYll 30A(1052) 
DOUBLE PRECISION 

MOV 
JSR 

MOV SJiei,$REG_ 

JNOW COMPUTE THE RESULTS 
CALCULATE THE NUMBER OF CORRECT BITS 



$AC2/$AC0 
PC,FLTSUB 
ACI 
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?A*A IN ACI 
;SAVE IM MEMORY 



1$: 



2$: 



CMP 
BGE 
MOV 
SUB 
SUB 
HEG 
LDD 
MOV 
JSR 
SUB 

BPL 

NEG 
CMP 
BLE 
MOV 
HROER t 

.IF B <> 

HRDER$, BEGIN, NULL 



iAC2/SAC3 
AC3,SAC2 
aci,|ac2 
53.^$AC2 
AC2 
LTMPO#ACO 
SREG2#|aC0 
PC|-FLTSUB 
$REG3,$AC1 

|AC2>rSACl 
SECT3D 
#45,EPRTYP 
<RESULTS WRONG> 



3DETEHMINE WHICH EXP IS LftRGER 
JBRANCH if AC2 LARGER 
;PUT LARGEST IN AC2 



JGET LEFT HAND SIDE 

;SUBTRACT TO SEE HOW CLOSE THEY 
;SUB EXT EXPONENTS 
;ACTUAL EXPONENTS ARE EQUAL 
;MAKE SURE RESULT IS POSITIVE 

?RESULTS WITHIN RANGE ALLOWED? 
•.BRANCH IF YES 
FP RESULT WRONG 



HRDERS, BEGIN, 
.ENDC 



JSR 

FLTMPO 
SFLBUF 
OTOA 
****** 



PC,$FLD20 



RESULTS WRONG 
;RESULTS SslRQNG 

:ftft*«*«*«ft****«***A^ 

;COMVERT RESULT 



***«******< 
1 TO ASCII 



********** 



*********** 



SREG2,S0BDFF 
**************************************** 

;CONVERT SREG2 TO ASCII RND 

;ST0RE AT $OBUFF 
OTOAS, BEGIN, SREG2,$0BUFF 

********«**«********************************«****#******, 
JSR PC,$FLD20 JCONVERT RESULT 2 TO ASCII 
FLTMPl 



**************** 



****** 



mi 



fgl $REG3,$S0BUFF 
************%*****«*************** 

CONVERT 
STORE AT 



******************** 
;CONVERT SREGB TO ASCII AND 



OTOA$, BEGIN, $REG3,SS0BUF^ 



****************** 



^ ************«««**«**««««« «*****«*«««: 

MSGN SP2 

MSGN$, BEGIN, SP2 ;ASCII MESSAGE CALL WITH COMMON HEADER 



STARS 
************** 

SECT3D: LDD 



*********** 
$TMP0,AC1 



***************** * * ****** 
;LOAD OPERAND A 
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002020 
002010 





001750 
001630 



001716 
174744 



000000' 000000 



003160' 104420 000000' 004732' 
003166' 005062' 

mm- 88lIi^ """^ 
mm- ""''"' 



003200' 104420 000000' 004734' 
003206' 005102' 

J3210' 104403 000000' 005170' 
003216' 

i; tWii 001464 

r- mm """^ 



MACYll 30A(1052> 12-aCT-78 16:36 PAC^: 
DOUBLE PRECISION 

LDD 
MOV 
MOV 
JSR 
JSR 
STD 
MOV 
LDD 
STD 
MOV 
MOV 
JSR 
SUB 
BPL 
NEG 

1$: CMP 

RLE 

MOV |ft3,tKKrYf 

HRDER , <RESULTS WRONG> 
•*****%*****************************«**«** 

-IF B <> 

HRDER$, BEGIN, NULL JRESULTS WRONG 

.IFF 

HRDERS, BEGIN, ;RESULTS WRONG 

.ENDC 

************************************************** 

JSR ^ PC,$FLD20 ;CONVERT RESULT 1 TO ASCII 

FLTMPO 

SFLBUF 

OTOA $REG2,S0BUFF 

• »«**********%* **«****************ik* **«*»** ******* 

;CONVERT $REG2 TO ASCII AN 
;STORR AT SOBUFF 
0T0A$,REGIN,$REG2,S0BUFF 



STMP4,AC0 

|REG0,$AC1 

$REG1,SAC0 

PCFLTDIV 

PC^FLTMPY 

ACI, FLTMPO 

SAC1,SREG2 

|tmpo,aco 

AC0,FLTMP1 

srego,|aco 

SREG0,|REG3 

PC,FLTSUB 

SREG0,$AC1 

llci 

i54.,SACl 

SECT4D 

W45,ERRTYP 



;AND OPERAND 



;G0 DIVIDE THEM 
;MULTIPLY RESULT BY B 
?SAVE RESULT 

JLOAD OPERAND A 
;SAVE INCASE TYPE OUT 



JSUBTRACT RIGHT AND LEFT HAND SI 

;SEE IF RESULT OK 

;ENSURE DIFFERANCE IS POSITIVE 

;RESULTS WITHIN 2 BITS? 
>BRANCH IF YES 
;FP RESULT WRONG 



**************** 



****** « 



***************** 
PC,$FLD20 



JsR 

FLTMPl 

SSFLBUF 

OTOA $REG3,S$0ByFF 

.************%*****«**«***« 



**<!*******«********* 

;CCNVERT RESULT 7 TC ASCI 



************** 



************************ 
;CCNVERT SREG3 TO ASCII AND 
'STORE Kt SSnPUFF 



. . ***** 
SECT4D: 



OTOA$, BEGIN, $REG3,$$0BUFf 
.*************»«**************************♦****** 
MSGN SP2 

MSGNS, BEGIN, SP2 ;ASCII MESSAGE CALL WITH COMMON HE 
ft*********************** 



LDCFD 
STCDF 

SETF 



STMP4,AC3 
AC3,STMP6 
STMP4,AC3 

$TMP6,AC3 



r****** *************** 

;CHECK CONVERT 
;BRING DATA PACK 
JRELOAD 1ST NUMBER 

;NUMBERS THE SAME? 



ADER 
****** 



******* 



rPBC OEC/Xll SYSTEM EX 
XFPBC0»P11 12-0CT-7 



ERCrSER MODULE 
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MiiCYIl 30A(1052) 
DOUBLE PRECISION 
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001421 
012767 




000045 174634 



;BRANCH IF YES 
;FP RESULT WRONG 



001 
104405 000000' 000000 



000356 
000346 

000000' 005244' 

001402 

001372 001374 

001362 001364 
000045 174536 

000000' 000000 



000000' 004716' 



000000' 004720' 



itft««ft«««««ft«]»ft«ft«*«««««« 



BEQ SECT5D 
MOV #45,ERRTYP 
HRDER , 

.IF B <> 

HROER$, BEGIN, NULL ; 

HRDERS#BEGIN, ; 

I *********** ****&**!&*** ********************************* Aft****** 

JSR PC,$FL20 ;CONVERT 1ST NO TO ASCIZ 
STMP4 



) 



Hr' 



PC,$FL20 



^CONVERT 2ND NO TO HSCIZ 



IS: 
2$: 



miM' 



1044^0, 



*«««»««««««** 



flr*A«A*«*ft«**ft*«*ft****************«****** 



003376' 104420 000000' 004722' 



asR 

STMP6 
SSFLBUF 
MSGH SP5 

MSGN$/BEGIN,SP5 ;ASCII MESSAGE CALL WITH COMMON HEADER 
STARS 
..«*****«*********** ************************************** ********* 

SECT5D: SETD 

LDCLD STMP4£AC2 KHECK INTEGER CONV 

STCDL AC2irSTMP6 ;BRING IT BACK 

CMP STMP4,STMP6 ;FIRST WORDS OK? 

BEQ Is ;BRANCH if YES 

BR 2s 

CMP $TMP4+2#$TMP6+2 ;2ND WORDS OK? 

BEQ END ;BRANCH IF YES 

MOV #45,ERRTYP ;FP RESULT WRONG 

HRDER , 

•**«**%««* 

.IF B <> 

HRDER$, BEGIN, NULL ; 

.IFF 

HRDERS/BEGIN, ; 

.ENDC 

.*******************«*****«* ft* **ft**********************^ ******** 

OTOA STMP4,S0BUFF 
.*****»******%************************************************** 

;CONVERT $TMP4 TO ASCII AND 
;STORE AT SOBUFF 
OTOAS, BEGIN, STMP4,$0BUFF 

*************************************************************** 
OTOA STHP4+2,$DBUF1 

• *«rft»ft4t«*«*«««lW «*%********************* ft* ************ ********** 

;CONVERT $TMP4+2 TO ASCII AND 

;STORS AT SOBUFl 
DTOAS, BEGIN, $TMP4+2/S0BUFl 

•*** ft*** ************************************ ******************* 
OTOA STMP6,S$0BUF 

■ ftftft^ftftft ft* **«%rft2*ftft«* ft**** ***«*«**** ft ******************* ******** 

;CONVERT $TMP6 TO ASCII AND 
;STORE AT $$OBUF 
OTOA$, BEGIN, $THP6,$$0BUF 
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975 003404' 005102' 

977 003406' 



MACYll 30A(1052) 
DOUBLE PRECISION 
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mnr- 

003416' 
003416' 
003424' 
003424' 

003430' 

003434' 



m 
mi 

003 



104420 
005112' 



104403 
104413 
000167 



000000' 004724' 



000000* 
000000' 
174570 



005260' 



003434' 066767 001406 001406 
003442' 171100 



454' 000207 



003456' 

003456' 166767 001364 001364 
003464' 174500 

mm- Im 88?35? 

003476' 000207 
003500' 



. ft****** ******** ********'** ft ft ft********* ft* **************** ******* 

OTOA $TMP6+2,$S0BU1 

. ft** ft ft *********%**«* ft ***************** ft* ft ft* ************* ******** 

;CCNVERT $TMP6+2 TO ASCII AND 
JSTOHE AT SSOBUl 
OTOAS, BEGIN, $TNP 6+2, S$0BU1 

•ft ft*********** ft*** ********************************************* 

MSGN SP6 

MSGNS, BEGIN, SP6 ;ASCII MESSAGE CALL WITH COMMON HEADER 



ENDIT$,BEGIN 
JMP LOOP 



SBTTL 



JSIGNAL END OF ITERATION. 
;MOHITOR SHALL TEST END OF PASS 



******************************************** 



FLOATING POINT MULTIPLY ROUTINE 

THIS. ROyilNE.JULTIPLIES THE CONTENTS OF ACO AND ACl 



1$ 



AND LEAVES THE RESULT IN SCI. IT ALSO TAKES CARE OF 
THE SOFTWARE EXPONENTS THAT ARE KEPT IN $ACO AND SACl. 
STARS 
**ft**«ft«***************i^****ftft*ftftft**ft**ft*ftftft**ftft*ft******ft****ft**ft 

tmpy: add $aco,saci jadd software exponents 

mulf aco4aci ?d0 the multiply 

mov #100400,-(sp) ;put control word on stack 

jsr pcexpext ;calculate ext exponent 



RTS 



PC 



;return 



.SBTTL 



• . ****! 

FLTDIV; 



1$: 



..***** 
.SBTTL 



ft*************** 



FLTSUB 
FLTADD 



*************************************** ft* *« 

FLOATING POINT DIVIDE ROUTINE 

THIS ROUTINE DIVIDES THE CONTENTS OF ACl BY ACO 

AND LEAVES THE RESULT IN ACl. 

STARS 
***************** ft* ************ ***************** 

SUB SAC0#$AC1 ;ADJUST SOFTWARE EXPONENTS 

DIVF ACO, ACl ;EXECUTE THE DIVIDE 

MOV |100400,-(SP) JPUT COMTROL WORD ON STACK 

JSR PCEXPEXT ^CALCULATE EXT EXPONENT 

RTS PC ;RETURN 

*§****«****«*********«*«*«**«********** 
FLOATING POINT ADD ROUTINE 

THIS ROUTINE ADDS THE CONTENTS OF ACO TO ACl. 
THIS CAN ONLY BE DONE IF THE SOFTWARE EXPONENTS 
ARE CLOSE ENOUGH TOGETHER SUCH THAT AN ADJUSTMENT 
OF THE REAL EXPONENT LEAVES A NON-ZERO NUMBER. 
STARS 
**************************************************** 

MOV SP,SUBFLG ;SET SUBTRACT FLAG 

CMP SAC0,$AC1 ;CHECK SOFTWARE EXPONENTS 

BGT 2S 

BEQ 4S 



*ftft**ft*** 



******************* 



FPBC DEC/Xll 
XFPBCO.Pll 
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003642- 



000666 
000002 



MACYll 30A(105 
FLOATING POINT 

; ACCUMULATOR 1 
MOV 
SUB 
CMP 
BGE 



NEC 

LDEXP 

BR 

LDEXP 

BR 



2) 12-0CT-7B 
ADD ROUTINE 
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IS LARGER 



SACl^R2 
$AC0,R2 



1$: 



R2 

R2,AC0 
4$ 
|-75,AC0 



001262 



lACCOMULATOR 
2$: MOV 
SUB 
MOV 
CMP 
BGE 
NBG 
LDEXP 
BR 




THAN ACCUMULATOR 
(GET OPERAND B SOFTWARE EXP 
;GET DIFFERENCE in SOFTWARE EXP'S 

fi^!JF?P DBL PREC RANGE? 
^iii^FS II ABSn'^OT REQUIRED 
;RBSULT is OPERAND F 

;RELOAD THE EXPONENT 

ilrH BWM^L,^° HARDWARE 
;WILL DETECT OUT OF RANGE 

THAN ACCUMULATOR 1 

EXP wiT^lf gef^^Ilf I.hTe? ^«^*^ 

;BRANCH IF NO 

;reload the exponent 



JACCUMULATOR^O I|_MUCH LARGER THAN ACCUMULATOR I SO RESULT IS 



4$: 



SDBFLG 



TST 

BEQ 

SUBF 

BR 

ADDF 

MOV 

JSR 

CLR 

RTS 

.WORD 

STARS 



SUBFLG 
AC0,AC1 

Av9«*ci 

|10D400^--(SP) 

PC^EXPEXT 

SUBFLG 

PC 



^.llff^ Bm^^^ SO HARDWARE 
*^i{:'-„8'=^TECT OUT OF RANGE 
iADD OR SUBTRACT? 
(BRANCH IF ADD 



/EXECUTE THE ADD 






W XXX YYY ZZZZZZ 



WHERE 



= SIGN BIT 

- f;;fllrSP9Nf:NT (RIGHT JUSTIFIED) 

= igieifes ifii iiiiu ^"'^""sb^tified) 



;*THE ROUTINE IS CALLED AS FOLLOWS: 
I* JSR PC,$FL20 

;* fiUFFFR HSSS'^^SS OF NUMBER TO CONVERT 

STARS ^ADDRESS OF BUFFER FOR ASCIZ 
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017600 



000000 
"00 ' 

too 






|764' 56 

-.3770' 11-^^ 

003772 • 07302 

003776' 07751x 

mm- mil 

004034' 010103 
004036' 042703 
004042' 062703 

004054' 077511 

004072' 112744 

g0410|: 062i00 

004114' 
004116' 





110044 
000207 



000060 



III 



177776 
000060 

?l,... 

000002 

177770 
000060 

177775 

177774 
000060 

000040 
000040 

000060 
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CONVERT FLOATING BINARY TO OCTAL ASCIZ 



$FL20: 



1$: 



2$: 



3$: 



-SBTTL 

;* 



MOV 

add 

MOV 
MOV 
MOV 

add 

ADO 

MOVB 

MOV 

MOV 

BIC 

ADD 

MOVB 

ASHC 

SOB 

MOV 

BIC 

ADO 

MOVB 

MOVB 

ASHC 

MOV 

MOV 

BIC 

ADD 

MOVB 

ASHC 

SOB 

MOV 

BIC 

ADD 

MOVB 

MOVB 

MOVB 

ASH 

MOV 

MOV 

BIC 

ADD 

MOVB 

ASH 

SOB 

MOV 

BIC 

ADD 

MOVB 

MOVB 

MOVB 

BIC 

ADD 

MOVB 

RTS 

STARS 



SP)gR0 

60)*R1 
RO 



ill: 



R1#R3 



ri#r: 



"ClirRS 



R4) 



tf-ClirR 
i60^R3 

RlrR3 
#''C7£R3 
i60,R3 
«3<-(R4) 

R1,R3 
#-Cl,R3 
|60,R3 
H3,-(R4) 

R1,R3 
ff-C7^R3 

«3«-(R4) 

R5,3$ 
Rli-R3 
#*C3^R3 

R0,-(R4) 
PC 

ft **************** 
FLOATING DOUBLE 



;GET ADDRESS OF DATA 
;ADJUST RETURN PC 
;PUT SECOND DATA WORD IN Rl 
'Ul ?JS§T DATA WORD IN RO 
;GET ADDR OF BUFFER 

>ADJUST TO END OF BUFFER 

;PpT TERMINATOR IN BUFFER 

;S|T SOB COUNT FOR FRACTION DIGITS 

;get lsb's of fraction 
;save ls 3 bits 
;m«ke them ASCII 

;STORE IN buffer 

;SHIFT number TO NEXT 3 BITS 

;CONTINUE FOR 7 DIGITS 

;GET NEXT DIGITS 

;OWLY WANT 1 BIT 

;make them ASCII 

;STORE IN BUFFER 
?PUT SPACE IN BUFFER 

;SET SOB COUNT 
;GET LOW WORD 
;MASK 3 BITS 
?MAKE THEM ASCII 
;PUT IN BUFFER 
;GET next 3 BITS 
;CONVERT THEM 

;ONLY WANT 1 BIT 
JMAKE IT ASCII 
;PUT IN BUFFER 
;PUT SPACE IN PUFFER 

?MAKE THEM ASCII 

;STORE IN BUFFER 

;GET next 3 BITS 

;CCNTINUE 

/GET LAST 2 BITS OF EXPONENT 

;MAKB SURE ONLY 2 BITS 

;make them ASCII 

;STOR£ IN BUFFER 
?PUT SPACE IN BUFFER 

j?IL=}f aI^Ii'" "»= MTENDED) 
JPUT IT IN THE BUFFER 



BINARY TO OCTAL ASCIZ 



m 
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000000 

mm 



177772 

mm 

177752 
000004 



000002 
000005 



177770 
000060 



000060 
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CONVERT FLOATING DOUBLE BINARY TO OCTAL ASCIZ 

*THIS ROUTINE CONVERTS A 64 BIT FLOATING NOHBER TO AN OCTAL 
nSCIZ STRING IN THE FOLLOWING FORMAT: 

* U VVV WWW XXXXXX YYYYYY ZZZZZZ 

* WHERE U = SIGN BIT 
8-BIT EXPONENT (RIGHT JUSTIFIED) 
FRACTION BITS<57:51> (RIGHT JUSti 



:51> i 

X = FRACTION BITS <50:35> 
Y = FRACTION BITS <34:19> 
Z = FRACTION BITS <18:03> 



RIGHT JUSTIFIED) 



*THE ROUTINE IS CALLED AS FOLLOWS: 



PC,SFLD20 



000000 000016 
000006 



FLD20 



«****«*«« «r«r«ft«««« 




;ADDRESS OF NUMBER TO CONVERT 
;ADDRESS OF BUFFER FOR ASCIZ 

;GET ADDRESS OF DATA TO CONVERT 
?ADJUST RETURN PC 
;GET ADDR OF BUFFER 
;CONVERT MS 32 BITS 



;PUT ADR OF BUFFER IN RO 

;ADJUST TO END OF BUFFER 
;PUT TERMINATOR IN BUFFER 
;GET ADDRESS OF DATA TO CONVERT 
;ADJUST TO LOMER 32 BITS 
;SAVE THE DATA 

JSET LOOP COUNT 

;SET LOOP COUNT 

JGET LS 32 BITS OF DATA 

;MASK 3 BITS 

;MAKE them ASCII 

?PUT IN BUFFER 

;GET NEXT 3 BITS 

;CONTINUE 

;GET LS 32 BITS 

;ONLY HANT 1 BIT 

;MAKE it ASCII 

;PUT IN TABLE 

;PUT SPACE IN TABLE 

;CONVRRT NEXT 16 BITS 



«r«««&«««ft««ft« 



»ftft«««i)rft«'ik«*«ft«*««-*«rftft«««ft 



.SBTTL RANDOM NUMBER GENERATOR ROUTINE 



;*HITH rRAHGl OF To"! (f 33)-lP^^" PSEUDO RANDOM NUMBER GENERATOR 
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MACYll 
RANDOM 

J*CALL: 
$RAND: 



30A(1052) 12-aCT-78 16:36 
NUMBER GENERATOR ROUTINE 



JSR PC/$RAND 
RETURN 



;;CALL THE ROUTINE 
;;RETURN HERE THE RANDOM 
;)NUMBER HILL BE IN 
;;SHINUM,$LONUM 



ftftAft«ft1Sr*«**«r 



«rftftft»4r«ftJSt«lir*lit«A«»A«*ft 



1$: 



-SI 



KWBL 
FLTSGL 

m 



MOV 
MOV 
MO? 
MOV 
MOV 
MOV 
ASL 
ROL 
INC 
BNE 
ADD 
ADC 
ADD 
ADD 
ADC 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

FLOATING POINT NUMBER GENERATOR 

THIS ROUTINE GENERATES IW RANDOM FLOATING POINT NUMBERS 
IN EITHER SINGLE OR DOUBLE PRECISION. FOR SINGLE PRECISION 
THE NUMBERS ARE STORED IN STMPO AND STMP2. DOUBLE PRECISION 
NUMBERS ARE STORED IN STMPO AND $TMp|. ^*-^^^^ rncuiwiun 
IN EITHER SINGLE OR DOUBLE THE EXTENDED EXPONENT IS STORED 
IN SREGO AND $REGla 




;;SET RO WITH LOW 
;;SET Rl WITH HIGH 
;jSET SHIFT COUNT 
;;SHIFT RO LEFT AND 
>;RgTATE CARRY INTO Rl AND 
;;CHECK FOR DONE 

;;continue shift loop 
;;add number to make x 129 
;;propogate carry 
;;add number to make x 129 
;;add low constant 
;;propogate carry 

;;ADD HIGH CONSTANT 

;;SAVB RO 
;;SAVE Rl 



;return 



3$: 
4$: 



MOV 
MOV 
MOV 
MOV 
JSR 
CMP 
BBQ 
CMP 
BEQ 
MOV 
BIC 
CMP 
BEQ 
MOV 
MOV 






PijSOBDBL 
SO§DBL,RO 
■•$TMP0^R2 

/Rl 

/SRAND 

|2,S0BDBL 

sRlNUM<rR3 
#177, R3 
|BIT15/R3 

SHINUM,(R2)-I- 
$L0NUM/(R2)+ 



;SET LOOP FgR^2,, FOUR WORD NUMBERS 

?set word length loop 

;get address to store words in 

;set number of words to 2 

;get random number 

;first time? 

;BRANCH IF YES 
?D0UBLE PRECISION? 

?branch if yes 
;get exponent part 
;check for minus zero 

;branch if minus zero 
;save hinum 
;save lonum 
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PAGE 25 



2:13 

m 



Ill ^s^ii-sie^s? 



004706- 
'6| 000002 000022 

mm 

000001 000002 



84 004520' 



PPP: 

004540; 

004554' 

004570' 010342 

004602' 
QQ4606' 



004622' 



5SS 



TMP0,-(SP 
002^-(SP) 
/SOBDBL 

#1,SQBDBL 



;CONTINUE 

CONTINUE FOR DOUBLE PREC 

;PUT ADDRESS OF NUMBER ON STACK 

JPOT CONTROL WORD ON STACK 

;D0UBLE PREC? 

;BRANCH IF NO 

;CHANGE CONTROL WORD 

JCALCULATE EXT EXPONENTS 

;IIJIT SOBDBL FOR SINGLE PREC 

;RETURN 



SOB 

SOB .^-. 

JJgV flMO,-iSP) 

CMP 

BNE 

MOV 

JSR 

MOV 

RTS 

-iJORD 

STARS 

*«***»*««****** A***«**ft***«************** ****** ************* 

FLOATING POINT EXPONENT EXTENSION 

IH^iB-§°yil^^»£°!?P,I.^ ISSollgia*^ EXPONENT OF A FLOATING POINT 

SHSSi5»,Pl9..!? ilS^Mf.fc S?£SS|NT of 200 and an extended 

l?f8!!E'^ixf8Bi!iTlH5"io8."'^^*"^^ «^"^^« "^ °"«n*^ 

THE ROUTINE IS^ENTERED WITH A CONTROL WORD ON THE STACK. 
IFri^ug£nS8^,99il'^Rt WORD INDICATES WHETHER THE NUMBER 
li IS.,'^SMSRX„<$P>=0) OR IN AN ACCUMULATOR (<15> = l). 
IF THE NUMBER IS IN AN ACCUMULATOR^ BITS <9:8> INDICATE 
THE ACCUMULATOR NUMBER. IF THE NOMgERjs) IS IN MEMORY. 
"ITS <5:8> INDICATE THE NUNBER OF NUNBERS TO CONVRRT 
THE WORD LENGTH OF T 



I8I!HE:CASE:p:AlMEMpYjlNyERSI0N;;jHE;A^^ 



000400 
004706' 



000200 



000400 



,,***** 
EXPEXT: 



1$: 



fiP?oS?ieL'Soig?y'" '' *''° °' '^^^ ''*^^ (PRECEDING 

STARS 

1*****************************************4****^^^^^^^ 

R5 ;SAVE RETURN PC 

RO ;get control word 

;branch if acc conversion 
;get start address 



NO 



MOV 
MOV 

bmi 

MOV 

SUB 

MOV 

SUB 

NB6 

ASR 

ADD 

MOV 

BIC 

ASH 

SUB 

MOV 

BIC 

BIS 

SUB 

BMI 

MOVB 

ASL 

ADO 

ADD 



ip}:; 



JP)+£R1 

400,R0 
|TMf0,R2 



R^J 






|206^R3 

|bIT14S( 
|400yR0 

rLr3 
R3 

R3,R1 
|2/R2 

; ACCUMULATOR CONVERSION 



11} 



;GET OFFSET FROM $TMPO 



;gen address of ext word 

;GET data 

;get exponent 

jright justify exponent 

;CONVSRT TO 2'S COMPLIMENT 

;ado to extended exponent 

;NAKE ACTUAL 

;exponemt 200 
;any more words? 
jbranch if no 

;GET word LENGTH 

;SELECT NEXT NUMBER ADDRESS 
;SELECT NEXT EXTENDED ADDRESS 
;CONTINUE 



Jiiii 
'i|iiiF 



I 
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177776 
177477 
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177773 
005046' 
000300 
000000 



2$: 



3S: 






5TMP2: 
STMP4: 
STMP6: 
Irego: 



ASH 

BIC 

MOV 

ASH 

ADD 

BIC 

BIS 

STEXP 

ADD 

CLR 

BIC 

BIS 

LDEXP 

MOV 

RTS 



SFLBOFF 
SSFLBUF 
SACO 
SAC 

sac; 

SACL 

Ilonum 

SHINUM- 
SOBOFF: 



Cl: 
C2: 
C3: 



SOBUFl: 



SSOBUF: 



$$0BUl: 



SCNT: 

FLTMPO: 
FLTMPl: 



!-5,R2 
SAC0xR2 
300,3$ 

AC0,R3 
R3#tR2) 

U3,kC0 

R5,-(SP) 

PC 



.BLKW 

.BLKW 

.BLKW 

.BLKW 

.WORD 

.WORD 

.WORD 

.WORD 
:.BLKB 
:.BLKB 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 
• BLKW 
.BLKW 

MSGl 
SFLBUFF 



n 



inn' 



;GET ACCUMULATOR NUMBER 

;GENERATE 

JADDRESS OF 

JEXTENDED EXPONENT 

;GENERATE INSTRUCTION 

;T0 GET EXPONENT 

JGET EXPONENT 

JADD TO EXTENDED EXPONENT 

;GENERATE INSTRUCTION 

;T0 LOAD EXPONENT BACK TO ACC 

;LOAD EXPONENT OF 200 

;RESTORE RETURN PC 

;RBTURN 
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SP4: 



020040 MSGi: 



020040 

020040 0' 

020040 

020040 020040 

040504 040524 



???7 



000 
000040 
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FLOATING POINT EXPONENT EXTENSION 




MSG3: 
MSG4: 



MSG5: 



052101 
"42540 MSG6: 



.ASCIZ '%' 
.ASCIZ -% 



-ASCIZ '% DATAl DATA2%' 
.ASCIZ '% DATAl 



DAtA2%' 
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.im mm 
mm min 



PAGE 29 



MSG7: 



MSG7A: 



MSG8: 



-ASCIZ 



.ASCIZ '% 



-ASCIZ 



DATA1%' 



DATA2%' 



DATAl 



DATA2%' 



.END 
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ACSR 
ADDR 
ADDR22= 
Af- 



iSIf 



00Q102R 

oooooIr 

OOlpOO 
0Q0106R 




IDl 000014R 

Bits; 11 f 

RTYP 0001Q6R 



!5S?i|: mil 

CONFIG 05d056R 

CSRA OOOlOOR 

DAfCKSs 104411 

DATeR$:s 104404 

pVIDl Q00014R 

ENDI 

EHOS »^ -=^ 

ERRTYP 0aol66R 

EXITS = 104400 

EXPEXT 00452QR 

FLTADD 003504R 

FLTDBL OOlfeOR 

FLTDIV 003456R 

FLTMPY 003434R 

FLTMPO 005124R 
FLTMPl 005|34R 
FLTSGL 004366R 

GIIBUF|= 104414 
HRDCNT 000044R 
HRDERS= 104405 
HRDPAS 500050R 



)i! 



.11 



430 

in 



mi 



426* 
1015 

4h 

374 



1241# 
473 
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USER SYMBOLS 



J1? 


452 


456 


522 


534 


544 


548 


574 


586 


596 


600 


641 


§§9 


^U 


^$ 


740 


752 


lU 


V,'i 


8: 2 


844 


854 


896 


906 


910 


924 


936 


951 


974 


981 


985 



518* 
809* 



522 



1262 
465 



393 

788* 
848 

511 



^??f* 



711 

477 

900 
729 



868* 

362# 



49 3 
890 



1028# 

557 
1361# 



ft 
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tcgaNf 
IdIum 



im 



OfOA$ = 



12-0CT-78 11: 59 
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III 



lilt 



967 



629 



liB 



974 



1386 
1410 



981 



1392 
1423# 



1398 



if PI ^«^^« '^ 

586 §96 650 65 



924 
194 



951 
195 

762 



1422# 



196 
844 



197 

854 



PS = 
PSH = 
POSH = 
P0SH2 - 

RBSTRT 



354f 



307# 



I 



RSfRT 

urn 



SB- 
SECT4D 



mt 



PPBC DEC/Xll SYSTEM EXERCISER MODULE 
XFPBCO.Pll 12-0CT-78 11:59 

SECTS 
— CTf 
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SACO 



$AC1 



$AC2 

SAC3 
$CNT 



FLBOF 
FLf — 

fl: 



^'-iU° 



005050R 



mii 



M 



lit 



353# 
1056 



320 
337 
665» 



363* 

i: 

724 

w 

1341# 

529 
625 
445 



1247 



370 



j: 



mi 

1046* 



m 

527 



mn 



1063* 1065# 



im mt 



'lit 



1263* 1265f 



IV4 



568 
734 
826 



747 

11 



m 



m 



382 
999 

lit: 

773* 

864* 

415* 
686* 



m 



325ii 

342rf 



391 

m 

1012 



m 

416 
713 
816 
505 



416* 



891 
889 
929 



32 6# 
343« 



395* 
1028 

w 

676 

424 
695* 



931 
899 
932 



327# 



399* 
562* 

ilW 

4C6 
500 
682* 

877* 

467* 
723* 



1336# 
ll62tf 
1087S 



403* 

1044 
414 
506 
686 
794* 
878 

476 
724* 
826 
111 

1365 
1165 



418* 
673* 
792* 
1046 
420* 
512* 
692* 

999* 

487* 

'III' 



464* 
680* 
794 

1315 
423* 
515* 
69b 
80x* 

1017* 

497 
726* 



331» 



472* 

682 

BOO* 

133P/J 
424 
516 
702* 
b04 

1028 

503 
734 



Wf^ 



FPBC OEC/Xll SYSTEM EXERCISER MODULE 
XFPBCO.Pll 12-0CT-78 11:59 



$HINUH 

SLONUM 

SDBUFF 

SOBUFl 

$RAND 

$REGO 

SREGl 

$REG2 

SREG3 

$TMPO 

$TMP2 
$fMP4 



SFLBU 
iOBUF 
SOBUl 



005060R 
005056R 
00S062R 
00507|r 
004262R 
004726R 

004730R 



iViU 



STMP6 004722R 



005002R 

'"11 



UU3UU/K 

mm 

005664R 



1211 
1210 



in 

844 
406* 

m 

799 
358 



HI 
405* 

m 
m 

1328# 



1219 

13'- 
12 



2 l|48# 

9 370 



780 
381 
I3P 



873* 

III 



M&CYH 
CROSS 

1224* 

w 

1405 
392 

!S! 

442 
896 
452 
906 
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m 

§44 



499* 

m* 

596 
1409 
1330# 



1249 

1254 

650 



463 
864 
464 

479* 
124- 



m m 



781 
538 

m 

657 



1253 



Mii* 



470 
872 
472 

510 

512 



509 
791 

561* 
762 



1343# 
844 

490 
873 
482 

534 

544 

552 

III 

590 
974 
§49 
854 



960 



554 
875 

555 

559* 

563* 

560 
1328*^ 
553 
558* 
913 

607* 
981 
901 
906 



^i?^ 



— i 



586 

596 

621* 

1329f 
580 
915 

609 

HW 

974 



1344# 1367 



1332# 
691 



563 

ir 

676* 
716* 

623 



606 
930 



1337# 
13521 



565 
701 
72B 
730 
€67 



633 
940 



1369 
1371 



1377 

669 
774 
752 
762 
681 



635 
942 



1379 
1381 



1391 

680 

782 

789* 

BIO* 

771 



702 
792 
820 
822 
779 



668 
960 



1399 
1407 



1331# 1336# 1337# 136U 1362# 



ABS. 000000 
005664 



ERRORS detected: 

DEFAULT GLOBALS GENERATED: 

XFPBC0,XFPBC0/SOL/CRF:SYM=DDXCOM,XFPBC0 
RON-TIHE: 2 3 .4 SECOMDS 
RUN-TIME ratio: 33/6=4.8 
CORE USED: 7K (13 PAGES) 



I 



